function x=Haar_Denoising(data,n)
    [C,L]=wavedec(data,n,'db4');
    X=wrcoef('a',C,L,'db4',n);
    x=X(99);
end
